<!--
Dim cr, t, q
Sub window_onload()
    t = Chr(9)
    q = Chr(34)
    cr = Chr(13) & Chr(10)
    FillList
End Sub
Sub FillList()
    ReDim vv(1, 1000)
    b = Document.body.innerHTML
    s = "<P id=start>"
    x = InStr(b, s)
    i = 0
    If x Then
        b = Trim(Mid(b, x + Len(s)))
        Do
			y = InStr(b, "<P>")
			If y Then
			    e = Trim(Left(b, y - 1))
			    b = Trim(Mid(b, y + 3))
			    z = InStr(e, "<BR>")
			    If z Then
			        c = Trim(Left(e, z - 1))
			        d = Trim(Mid(e, z + 4))
			        If Len(c) <> 0 And Len(d) <> 0 Then
			            i = i + 1
			            vv(0, i) = c
			            vv(1, i) = d
			        End If
			    End If
			End If
		Loop While y
        ReDim Preserve vv(1, i)
        SortArray vv
        b = ""
        For i = 1 To UBound(vv, 2)
            a = cr & "<TR><TD bgcolor=PowderBlue>" 
            c = vv(0, i): ClearFromCharacters c, " "
            a = a & vv(0, i)
            a = a & "</TD><TD bgcolor=Linen>" 
            a = a & "<A Name=" & c & ">"
            a = a & vv(1, i)
            a = a & "</A>"
            a = a & "</TD></TR>"
            b = b & a
        Next
    End If
    If Len(b) Then
        b = Heading.innerHTML & "<TABLE cellspacing=8 cellpadding = 8 width=100% cols='40%, *'>" & b & "</TABLE>"
        b = b & "<BR><BR><BR><BR><BR><BR><img src=fisalo2.gif>"
        Document.body.innerHTML = b
    End If
    s = "Glossary.htm#"
    for each h in document.body.all.tags("A")
        b = trim(h.href)
        if len(b) then
    		x = Instr(b, s)
			if x then
        		c = h.innerText
        		ClearFromCharacters c, " "
                h.href =  Left(b, x + Len(s) - 1) & c
                h.style.fontStyle = "italic"
            end if
        end if
    next
End Sub
Sub SortArray(v)
    For i = 2 To UBound(v, 2)
        j = i
        Do Until LCase(v(0, j)) >= LCase(v(0, j - 1))
            t0 = v(0, j)
            t1 = v(1, j)
            v(0, j) = v(0, j - 1)
            v(1, j) = v(1, j - 1)
            v(0, j - 1) = t0
            v(1, j - 1) = t1
            j = j - 1: If j = 1 Then Exit Do
        Loop
    Next
End Sub
Sub ClearFromCharacters(Text, ContiguousCharacters)
    Dim x
    Do
        x = InStr(Text, ContiguousCharacters)
        If x Then Text = Left(Text, x - 1) & Mid(Text, x + Len(ContiguousCharacters))
    Loop While x
End Sub
-->
